home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / dos 5.1 (versch. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  529 b   |  20 lines
  1. 2 rem dos verschieben 11.05.1984
  2. 3 rem by herbert heise
  3. 10 ifpeek(46)>12thenprint"[147]das programm sollte nur einmal gestartet  werden!":end
  4. 20 gosub310:poke46,peek(46)+4
  5. 30 poke45,peek(45)+29and255
  6. 40 ifpeek(45)<29thenpoke46,peek(46)+1
  7. 50 clr:a=peek(45)+peek(46)*256-1024-29
  8. 60 b=52224
  9. 70 fori=0to1023:pokea+i,peek(b+i):next
  10. 80 a=a+1024
  11. 90 fori=0to28:readb:pokea+i,b:next
  12. 100 a=peek(45)+peek(46)*256-29:sysa:end
  13. 310 fori=0to28:readb:s=s+b:next
  14. 320 ifs<>3210thenprint"datafehler!":end
  15. 330 print"data ok!":restore:return
  16. 1000 data164,20,165,21,132,90,133,91,56
  17. 1010 data233,4,132,95,133,96,160,0,169
  18. 1020 data208,132,88,133,89,32,191,163
  19. 1030 data76,0,204
  20.